home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / Spider / DRAW15.ADA < prev    next >
Text File  |  1994-01-11  |  758b  |  110 lines
  1. WITH Spider; Use Spider;
  2. PROCEDURE Drawing15 IS 
  3. BEGIN 
  4. Reset; 
  5. Turn;
  6. Turn;
  7. Turn;
  8. Black;
  9. Step;
  10. Step;
  11. Red;        -- We want to change this statement to "Green;"
  12. Turn;
  13. Turn;
  14. Step;
  15. Step;
  16. Turn;
  17. Step;
  18. Step;
  19. Turn;
  20. Step;
  21. Step;
  22. Step;
  23. Step;
  24. Turn;
  25. Step;
  26. Step;
  27. Step;
  28. Step;
  29. Turn;
  30. Step;
  31. Step;
  32. Step;
  33. Step;
  34. Step;
  35. Step;
  36. Turn;
  37. Step;
  38. Step;
  39. Step;
  40. Step;
  41. Step;
  42. Step;
  43. Turn;
  44. Step;
  45. Step;
  46. Step;
  47. Step;
  48. Step;
  49. Step;
  50. Step;
  51. Step;
  52. Turn;
  53. Step;
  54. Step;
  55. Step;
  56. Step;
  57. Step;
  58. Step;
  59. Step;
  60. Step;
  61. Turn;
  62. Step;
  63. Step;
  64. Step;
  65. Step;
  66. Step;
  67. Step;
  68. Step;
  69. Step;
  70. Step;
  71. Step;
  72. Turn;
  73. Step;
  74. Step;
  75. Step;
  76. Step;
  77. Step;
  78. Step;
  79. Step;
  80. Step;
  81. Step;
  82. Step;
  83. Turn;
  84. Step;
  85. Step;
  86. Step;
  87. Step;
  88. Step;
  89. Step;
  90. Step;
  91. Step;
  92. Step;
  93. Step;
  94. Step;
  95. Step;
  96. Turn;
  97. Step;
  98. Step;
  99. Step;
  100. Step;
  101. Step;
  102. Step;
  103. Step;
  104. Step;
  105. Step;
  106. Step;
  107. Step;
  108. Step;
  109. END Drawing15;
  110.